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! IDENT = ‘*V04-000"" 


BASES LE LILES ISIS TST TTT ST TTT TTT Terr rT ITI TITS TIT T TLIC T TTT Titi iitit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
® 
' £ 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iz ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERLISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP DF THE SOFTUARE Gee HEREBY 
ie TRANSFERRED. * 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
® 
® 
® 
*® 
© 
® 


ie DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BPASSSELELISEL ELST TST TT TPE TT ETT TTT Tere cee c icici cee c ceric iti citi tists i its 
‘ 


oe 


; FACILITY: Common Journaling Facility (CJF) 


i ABSTRACT: 
LIBRARYsS and REQUIREs 


i ENVIRONMENT : 


i AUTHOR: CJF group 


i MODIFIED BY: 
v03-031 EMD000S Ellen Dusseault 26-SEP-1983 
v03-030 MKLO155 Mary Kay Lyons 25-Jul-1983 
Delete JNL$_xxx message names. Delete v3 conditlonatiie 
v03-029 JSv0338 Joost Verhofstad 28-JUN-1983 
Require CJF$ message from .R32 file 
v03-028 JSV0268 Joost Verhofstad 18-MAY-1983 


Add CJF$ = age and CJFS_ACPNAMTLNG and 
convert JNL$_ CJFS_ 


v03-027 JSv0238 Joost Verhofstad 29-APR-1983 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Set JNLSC_MAX_COPIES to 1. 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: Add CJF$_JNLNOTGRP 


wae SC Lh hC C OOOO ee 
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v03-026 Some ndy Joost Verhofstad 06-APR-1983 
Change NEXT_STAGE so it can be called from Loops 

v03-025 MKL0064 “4 y Kay. “eo 30-MAR-1983 

Add declarations f d JNL$_: NOSUCHVER, 

NVERR, NEWPROL, OLDPROL, CPYNOTAVL, “OLDVERSION. 
v03-024 LY0322 9=-MAR-1983 15:10:45 

Fix spelling of at i ” POSINL. Put P1 allocation macros back. 
v03-023 1 v0316 ng a4 Yetto 8-MAR-1983 14:41:32 

Add binds equating : L$_ ssvapets for all CJFS_ 


messages. At some time in the future the messages themselves 
will be CJFS but » equating the symbols now we can slowly 
phase in the new symbols. 


v03-022 JS$v0147 Joost Verhofstad 17=FEB-1983 
Add declaration of CJFS_INVTMPF and CJFS_BATJONLY 
and CJFS_iNVITMLST 


v03-021LY0303 ry Yetto 16-FEB-1983 11:09:29 
Back out P1 ubtenne tee until the exec routines are fixed 


v03-020 LY0296 5 Ae 06-F eb-1983 
cage SERVICE "INIT TAGE. ° SERVICE -END_STAGE and DEF INE_OFFSETS 
allocate memory from Pi instead of Using EXPREG. 
hdd *CJFSUNLOCK. PROTO macro 


v03-019 JSv0137 Joost Verhofstad 03-FEB-1983 
Replace source, put in null packet 

v03-018 JSv0117 Joost Verhofstad 05-Jan-1983 
Add CJFS_EXRUJQUOTA 

v03-017 LY0231 Larry Yetto 09-Dec-1982 


hdd CJFS_FILEXI error code declaration. Modify 
SERVICE_INIT_STAGE and DEFINE_OFFSETS to ptt the 
first Longword in the allocated memory 


v03-016 JSVv0101 Joost Verhofstad 01-Dec-1982 
ag Sect avettons for error codes to replace INVPAR 
n 
v03-015 Lv0218 ar ay fe etto 
if building a V3.x system. Modify 


Re wee JNLDEF .R 
NEXT_STAGE to put the stage data into a buffer area 

which is set up in one of the INIT_STAGE macros. The 
area was changed from OWN to LOCAL”to make the seruices 
reentrant, however, the BLISS compiler then start 

royssne stack locations for successive NEXT _STAGE. macros 
which tended to cause strange occurances when we run down 
through the next stage routines. 


v03-014 JySv0092 Joost Verhofstad 04-Nov-1982 
Aad CJFS_PREMEOF message declaration 
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v03-013 MeyyF arr 


' 11-Nov-1982 


d LAST_STAGE_ NUMBER co conntie time value so that 
PREVIOUS=F INAL- in NEXT_STAGE doesn't print bogus messages. 
Add CJFS_NOTIMFLTEL meSsage number. 


v03-012 LY0172 Lar etto 22-0c t-1982 
ae Literal Ventinitions for messages to replace 


v03-011 LvY0135 ag BY 20-0c t-1982 
Add CREDAT field” a sLS *BUCK hay ~~" Remove OWN dat 
from INIT_STAGE and NEXT STAGE. NAMTBL_BUF F MEN a 


NAMIBL_BUFF_BLKS Literal~ Setinitions. 
Modify code’so that it is rentrant and can be loaded 
into system space as a as a system service. 


v03-016 LVO126 Larry Yetto 16-Sep-1982 
Remove references to ’ STAGES. « « nels’ in INIT_STAGE 
and NEXT_STAGE macros. Add USE mobe. at T_STAGE macro. 
v03-009 JAY0002 John A, Ywosk 31-Aug-1982 
Conditionally require_in the vSeLpREa file to 
resolve symbols for V3.x bui 
v03-008 LY0101 arry Yetto 25-Aug-1982 
Remove CJF$_ TRUNC message. 
v03-007 JSv0042 Joost Verhofstad 10-Aug-1982 


v03-006 gSv00se Joost Verhofstad 28-Jul-1982 
Remove temporary definitions 


vO3-005 GJA0011 Greg Awdziewicz 27-Jul-1982 19:37 
Remove JNLDEF require declaration. 


v03-004 LY0050 Larry Yetto 27-Jul-1982 
Add return code external definitions. Add file block 
field, literal, and structure definitions. 


v03-004 JSv0023 Joost Verhofstad 16-Jul-1982 
Add return codes to be declared 


v03-003 LY0041 7 Ye 12-J 
Remove temporary rt A «in. for VCBSW_JNL CMXENT 


v03-002 JAY0001 John A. Ywoskus 08-Jul-1982 
Add ENTTOOBIG error. 


v03-001 LY0036 Larry Yetto 1-JUL-1982 
Change message definitions from requiring a .B32 file 
to defining them as external. Add the copyurite. Add 
temporary definition for VCBSW_JNL_MXENT 


' 

i 
i 
i 
i 
i 
i 
i 
i 
i 

i 
i 
i 
i 
i 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

i 
' 

: Add declaration for CJF$_RUCONTROL, CJF$_ZEROEXT 
' 

i 
i 

i 
i 

i 
i 
i 
i 
i 

i 
i 
i 
: 1-1982 
i 
i 
i 
i 
i 
i 
i 
' 
i 
ico 
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LIBRARY "SYSSLIBRARY:LIB' ; 

! REQUIRE "SHRLIBS:CJFMSG' 

REQUIRE 'SHRLIB$:BLIOPTS. 3a" : 

REQUIRE ‘SHRLIB$:PSECTS' 

REQUIRE ‘SHRLIBS: :UNLDEF INE : 
*SHRLIBS:JNLFILE' 


REQUIRE 
REQUIRE *SHRLIBS: CuEMSG" : 
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See 
' BUILTIN declarations 


LIN 
CVT_DEVNAM = JSB ( 
REGISTER = 0, ' Length of output buffer 
REGISTER = 1, ' address of output buffer 
REGISTER = 4, value for format of name returned 
REGISTER = 5 ; address of device UCB 
REGISTER = 1 ) : NOPRESERVE @d3 
EXTERNAL ROUTINE 


IOCSCVT_DEVNAM : CVT_DEVNAM ADDRESSING_MODE(ABSOLUTE) ; 


PPPS PPP rrr iri iit iii ii iiiiiiiiiitiiiitiiitiiiiitt) 
TAA aR Piette tii iii iii iii iii ii iii ii iitiiiiiiiiiti iit 
TEMPORARY CLUGE UNTIL THESE DEFINITIONS CAN BE PUT INTO STARLET/SYSDEF 
RHKKA KAKA eT eTe Ke AKA KeAKeAKeeeeeeeeeeeeeeeeeeeKeeeeeeereerereeeeet 
eeeeeeeeeeeeeeeeeKeeKeKeeeeeeeeeeekeeeeeeekeeeeeeeeeeeeeeeereeeeeeere 


LITERAL CJF -EVENT_FLAG = 25 ; 


[FP cmv ecmcacece 


NKAGE 
LINKALOP1IMAG = ow ( REGISTER =_1 I REGISTER = 1, REGISTER = 2) 
NOPRESERVE ( 3 ) 


EXTERNAL ROUTINE 
EXESALOP1IMAG : LINKALOPTIMAG ; 


LINKAGE 
LINKDEAP1 = JSB ( estates = 0, Begssien = 1) 
PRESERVE (0, 1, 2, 3) ; 


EXTERNAL ROUTINE 
EXESDEAP1 : LINKDEAP1 ; 
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*D0 BINDS ( BASE _ADDR, NAME. TYPE, LENGTH ) [] = 
NAME ="BASE_A BIND OFFSET : %REMOVE (TYPE) ; 
cas IGN ( DOBIND “OF rset DOBIND OFFSET + LENGTH ) 
DO_BINDS ( BASE_ADDR, ZREMAINING ) &; 


ACRO 
DEFINE OFFSETS ( BASE_A d= 
aif NOT LDECLAREDTDOBIND _OFFSET) 


COMPILETI ME 
DOBIND_OFFSET = 0 ; 


DO_BINDS ( BASE_ADDR, ZREMAINING ) %; 


¢ 

i ALLOCATE _P1 = Allocate memory from P1 

i DTA_LNGTH = number of bytes to allocate 

' ADDR_SIZ_BLCK = address of a two longword block 
to recieve the address and size 
of the allocated memory. 


CRO 
ALLOCATE P1 ( DTALLNGTH, ADDR_SIZ_BLCK ) = 


‘4 
i Get a block of memory to hold our data. Make sure that 
- there is enough for the length specified plus the staging data. 


MAP ADDR_SIZ_BLCK : VECTOR C,LONG] ; 


IND 
ALLOC_SIZ = : 
ALLOCTADDR = ADDR 


LOCAL 
RET_STAT : LONG ; 


RET_STAT = EXESALOPTINAG ( DTALLNGTH ; ALLOC.SIZ, ALLOC_ADDR ); 
THEN CHSFILL ( 0, .ALLOC_SIZ, .ALLOC_ADDR ) ; 


»RET_STAT 
END 2; 


i “DeALLocate Pl - Ati 1: memory from P1 

R_SIZ_BLCK = address of a two longword block 
which contains the address and size 
of the allocated memory. 


RO 
DEALLOCATE_P1 ( ADDR_SIZ_BLCK ) = 


| M 
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BEGIN 

BIND DATA_BLCK = ADDR_SIZ_BLCK : VECTOR C,LONG) ; 
EXESDEAP1 ( .DATA_BLCKCO], .DATA_BLCK[1] ) 

END %; 


nnn ee Oso) oO naman’ 
e 
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“INIT STAGE = Initialize staging 


The INIT gf thee were tyre age the calling routine as a 
recoverable entity. Its onl y argument is the name of a routine 
(not called {vst *, show) to undo the entire acti ten © the 

rout ine to follow the INIT_STAGE call. The INIT “STAGE. macro MUST 
be poets renee precisely between the blocks declarations, and 
execu es. 


f an error is signalled, the appropriate code — specified 
mn the most recent NEXT STAGE macro in the curr 
routine) is executed. Pea of this macro aust "be non-reentrant. 


Any data which is required by the dg aay | | code must either be global, 
or specified in the SAVE “DATA parameter List passed to the NEXT_STAGE 
macro. Each item in the data vector is stored as a longword. 


The code to be executed is specified in the CODE parameter of the 
NEXT_STAGE macro. In places where the code ave reference the 
data from the DATA vector, the format is: .DATA loc-in-vector]. 
““Loc-in-vector’’ is the parameter number within the DATA vector 
relative to zero. 


If appropriate, the call to NEXT_STAGE may include PREVIOUS=when 

where ‘‘when'’ can be: 
EFORE eacouye “g grouse NEXT_STAGE code BEFORE executing 

code from 

AFTER execute the previous NEXT_STAGE code AFTER executing 
code from this call 

NEVER do not (NEVER) execute the previous NEXT_STAGE code 

this is the default. 
FINAL fom the previously performed NEXT_STAGE macro 


CRO 
INIT diy th Al, A2, AS, A4, AS, Ab, A7, AB, AD) = 


EXTERNAL ROUTINE 
b HANDLER ° 
_ LE LONG 
_BLK ILE VECTOR (3. LONG), 
STAGE DATA_AREA VOLATILE VECTOR CCJFSC_MAX_DATA_AREA, BYTE], 
STAGE_DATA_OFFSET : VOLATILE LONG, 
STAGE-LIST-PTR : VOLATILE L 
STAGE ~LIST™ : VOLATILE ritarene CUFSC_MAX_STAGE*12, BYTE ) ; 
ENABLE COND_HANDLER (ENAB_V_STAGE_LIST,STAGE_LIST_PTR) ; 


BUILTIN 


inal uvm aos 
i be | — =e 
= Bor 
‘ pafad 73 @ 
; Ls 2 
“” 
oe 
ee 
oa 
m 
Coal 
w 
~ 
oo 
So 
a 
> 
— 
i eal 
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aFI 


es” ZDECLARED (UNIQUE _NUMBER) 
COMPILETIME UNIQUE NUMBER = 0 ; 


alien ZDECLARED(LAST_STAGE_NUMBER) 
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COMPILETIME LAST_STAGE_NUMBER = 0 ; 


aFI 


STAGE _DATA_OFFSET = 0 ; 
at © ae BUILD 


STAGE _BLK 
erst “BLKC2 
GEBLK 


STAGE cae 


CHSF ILL (0 
ENAB_V_STAGE 


= 
= STA 
= 
= 


(CJFSC_MAX he + Pst 
LIST = STAGE 


STAGE ‘cist _PTR = STAGE “tist 


STAGE LIST =PTR ; 
GE-LIST 

GL STAGEBLK : 

STAGE _BLK; 


STAGE_LIST ) ; 


en 


(a 
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- 
oe 


SERVICE _INIT_STAGE 


macro ~ iy oz vf sed in the re sentrent ge A o9e FF The” ety 
must ee A call SERVI E. — OS TAGE to enable ones. — : 4 r 
rform 7 expand r 1°etac Get data space i block aust then 
started and DEF! TAGE. DA A must be tatled Rolees + oy Wes executable 
statement within the block but after the last declaration. Finally, just 
before the service is done it must call SERVICE SEND. STAGE to delete the 


newly aquired PO space. 


It is also hi }! recommended that a NEXT_STAGE routine is declared 
after DEFI_STAGE_DATA to delete the virtual address a *pace aquired by 
SERVICE_INIT_STAGE. If such a NEXT_STAGE is used it T be the very 
last next stage routine to be executed by the condition bondtor otherwise 
the condition Latter “Stselt will access ‘violate: This is due to the fact 
that the memory locations referenced by the condition handler are in the 
oe aquired address space so if you delete the address space before the 

tion handler is done then all hell will break loose. 


Suggested form of the NEXT_STAGE declaration : 
NEXT_STAGE ( SAVE =DATA = = : or $1Z_BLCK 


D RVICE END. STAGE ( .DATALO] )), 
PREVIOUS = = NEVER ; 


Ce eee eee ee ee 


| 
Is 
} 
7 
MACRO 
SERVICE_INIT_STAGE ( DTA_LNGTH, ADDR_SIZ_BLCK, ALLOC_STAT ) = 
EXTERNAL” ROUT INE 


LER , 
BUILTIN 
FP ; 
LOCAL 
E TAGE LIST +: VOLATILE LONG , 
STAGE. BATA -OFFSET =: VOLATILE LONG , 
STAGELIST_PTR : VOLATILE LONG ; 
LITERA 


ROUNDED. SIZE = (CC CUFSC_MAX_STAGE*12) + 1 
JF SC MAX reals AREA + 0D 
“AND ZX°FFFFFFFS° 
ENABLE COND_HANDLER cenee.¥. Stade. LIST, Steet, AtSt Pre) : 
ZIF NOT ZDECLARED (UNIQUE _NUMBER) 


- COMPILETIME UNIQUE_NUMBER = 0 ; 


2¢ 
TA_LNGTH) + 7 ) 


ZIF NOT ZDECLARED(LAST_STAGE_NUMBER) 
ZTHEN 


HY 


----—--—-—-. —_ --—--——_—. 


i 
| 
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COMPILETIME LAST_STAGE_NUMBER = 0 ; 


aFI 
ZIF ZDECLARED ( DOBIND_OFFSET ) 
ha ASSIGN ( DOBIND_OFFSET, 0 ) 


COMPILETIME 
SERV_INIT_DONE = 0 ; 


STAGE_DATA_OFFSET = 0 ; 


te 
' Get a block of | to hold our data. Make sure that 
i. there is enough for the Length specified plus the staging data. 


ALLOC STAT oc ere tee P1 ( ROUNDED_SIZE, ADDR_SIZ_BLCK ) ; 
THEN ERR_EXIT ( SSS_INSFMEM ) 2%; 


CRO 
DEFI_STAGE_DATA ( BASE_ADR, A2, A3, A4, AS, Ab, A7, AB, AD) = 


ZIF NOT ZDECLARED (SERV_INIT_DONE) 
ue ZEXITMACRO 


' 
| genestepenensessonees CAUTION eeexeneeeranerererere 
i If the size of the required data storage is changed 
it must also be reflected in the SERVI E INIT STAGE 


macro. 
i _ RESET CAUTION seeaneeenareareerenee 


DEF INE OFFSETS (BASE_ADR, 
STAGE _BLK 


. ILE VECTORE,LONG]), 12 
STAGED -DATA_AREA . (VOLATILE VECTORE ,BYTEJ) .CUFSC_MAX -DATA_AR Ms 
STAGE-LIST™ « (VOLATILE VECT BYTE]) ,CUFSC_MAX_STAGE*®12) 


X1F_ JNLACP_BUILD 
STAGE = STAGE_LIST_PTR ; 
ST AGE Bett = STAGETt Ist ; 
STAGE = pot STAGE Buk ; 
g SixckeLe. = STAGE_BLK; 
eT 
CHSFILL ( 0, (CJFSC_MAX_STAGE * 12), STAGE_LIST ) ; 
ENAB_V_STAGE_LIST ="STAGE_LIST ; 
STAGE_CIST_PTR = STAGETLIST : 


CRO 
SERVICE END STAG : ADDR_SIZ_ 
DEACLOCATE_P1 ( ADDR=SIZ 


JNLPREF 1X.R32;1 
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lee 
7 NEXT_STAGE = Declare next stage and recovery data and code 


KEYWORDMACRO 
NEXT AS TAGE ( SAVE_DATA, CODE, PREVIOUS=NEVER ) = 


: Check for previous stage removal request 
iif ZIDENTICAL ( PREVIOUS, FINAL ) 
ZIF NOT ZNULL(SAVE DATA) OR NOT ZNULL (CODE) 
yee ZERRORMACRO T'Cannot add staging while removing previous stage’) ; 


APRINT ('enenennn nnn wenn nnn nnn nnnnnnnen--=>> STAGE_', 
TNUMBER (LAST_STAGE NUMBER)" REMOVED ', 


ZASSIGN (LAST_STAGE _NUMBER ,LAST_STAGE_NUMBER=-1) 
STAGE _LIST_PTR = .STAGE_LIST_PTR = 12 ; 


If .STAGE_LIST_PTR LSSU STAGE is? 
THEN STAGE_LIST_PTR = STAGE_LTST 


ZEXITMACRO ; 
ZF 1 
BEGIN 
SWITCHES LIST(NOOBJECT); 
: Create unique number to Label storage locations } 
iF DEBUG_PREF 1X_COMPILE . 
' ZPRINT(* Unique: *,ZNUMBER(UNIQUE_NUMBER),* before increment’) 


F 
ZASSIGN (UNIQUE NUMBER ,UNIQUE _NUMBER+1) 
eaten: (LAST _STAGE_NUMBER ,UNTQUE NUMBER) 


FRURBER CUNIOUE NUMBER) , 


! If there is code, put it in a routine. 
; If not, define routine address as 0 
he ZNULL( CODE ) 
TINE ZNAME(*STAGE_*, ZNUMBER( UNtGue NUMBER) ) 
me ATA gt 0% SIG_V": "REF VECTO. , MECH_ Vv: REF VECTOR, 
: REF VECTOR ) : NOV VALO UE = 
eE6In 
BIND 


ee a 


MAC 


| INLPREFIX.R32;1 


»DATA 


DAT L sor C,LONG); 
Eines oF “CODE ¢ (ZRE 


oc 

MOVE CODE ) : 

ZELSE 

uF BIND ZNAME('STAGE_* ,2NUMBER(UNIQUE_NUMBER)) = 0 ; 


! If we will NEVER call the previously repistered 
; recovery routine, reset subroutine stac 


ZIF ZIDENTICAL ( PREVIOUS, NEVER ) 


art STAGE _LIST_PTR = STAGE_LIST ; 


' Create the data vector and fill it. Put data address in 
: subroutine stack. 


‘DATA_VECTOR ( SAVE_DATA) ; 


: Put routine info in the subroutine stack 
* STAGE List. 4 = ZNAME(*STAGE_*,2NUMBER(UNIQUE_NUMBER)) ; 


«STAGE LIST 
aif F SIDENTICAL (PREVIOUS BEFORE) 


ZELSE ZIF ZIDENTICAL (PREVIOUS ,AF TER) 
> aaa 
ZELSE ZIF LIDENTICAL (PREVIOUS ,NEVER) 
ZTHEN 


0 
ZELSE 0 ——_, *ILle L previous indicator on STAGE_', 
ZNUMBER (UNI QUE _N’ BER 

SFI ZF1 ZF; 
: Bump subroutine stack pointer and check for errors 
STAGE ,iSy PTR = STAGE LIST_PTR : aa? 

F URIQU E NUMBER G R CJFSC_RAX_S 
zIheN TERROR < arate tae MAX_STAGE 7 a low’) 
eS (STAGE _LIST_PTR-STAGE_LIST)/12 GTR CJFSC_MAX_STAGE 

: This maybe should be some other error 

ERR_EXIT ( CJFS_OVERSTAGE ) ; 


RO 
LINES. al at 38 C LINE_OF CODE J = 


° 


OF _CODE™ 


H 1 
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PE eas Fee 
DATA_VECTOR ( DATA_ITEMS ) = 
ZIF ZNULL(DATA_ITEMS) 


HEN 
- ZEXITMACRO 


BEGIN 
BIND 
ZNAME ( "STAGESDATA_ eet gh rab NUMBER) ) = 
STAGE_DATA_AREA + .STAGE DATA OFFSET 
:~ VECTOR C NUM_PARAMS ( ZREMOVE DATA_ITEMS ) ,LONG 33 


COMPILETIME 
VECTOR_LOC = 0 ; 


STAGE _DATA_OFFSET = 
NOM_P PARAMS ( ZREMOVE DATA_LITEMS )*4 + .STAGE_DATA_OFFSET ; 


IF .STAGE DATA OFFSET GTR CJFSC =MAy -DATA AREA 
THEN ERR_EXIT(CUFS_INTERNAL) ; (*CUFSC_MAX_DATA_AREA is too low’) 


«STAGE_LIST_PTR + 4 = ZNAME ( “"STAGESDATA_", ZNUMBER(UNIQUE_NUMBER) ) ; 
DATA_FILL ( ZREMOVE DATA_ITEMS ) ; 
END ; 

2. 

DATA_FILL C DA 
ZNAM *S 
ZASSIGN ( 


TEM J = 
TAGESDAT + BNUMBER (UNIQUE NUMBER) ) C VECTOR: -LOC J = DATEM 
VECTOR Alot, “VECTOR_LOC + 1 J 


m 
~~ 


NUM_ ote ( ITEMS ) = 
a ENGTH 


' 1 
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tee ‘ 
ADD_PRIV = save current privs and add specified ones to process 
RESTORE_PRIV = restore previous privs 3 . 
The user should assure that there be no peas tote code path 


‘ 
' 
1 
‘ 
¢ 
§ that executes an ADD_PRIV without THE MA HING 
: RESTORE _PRIV. 


CRO < 
ADD_PRIV ( FIRST PARAM ) = 
BEGIN 


LOCAL 
'  NEW_PRIVS  : BBLOCK 82. 
FF-PRIVS : BBLOCK }: 
PREV_PRIVS : BBLOCK (8) ; 
W.BITs = we _PRIVS : BITVECTOR , 
OFF ITS = OFF-PRIVS : BITVECTOR , 
oReD” BITS = PREV_PRIVS : BITVECTOR ; 


CHSFILL ( 0, 8 , NEW_PRIVS ) ; 
MAKE _PRIV_MASK( FIRST PARAM, ZREMAINING ) ; 


: SSETPRV ( ENBFLG= 1, PRVADR= NEW_PRIVS, PRMFLG= 0. 7RVPRV= PREV_PRIVS ) ; 


MAKE_PRIV_MASK C PRIV ) = 
NEW_PRIVS C ZNAME ( "PRVSV_', PRIV) J =1; 


RESTORE _PR 


IV = 
NCR PRI 
OF F _ 


sre oo 0 ao 63 by 1 DO 
NEW W_BITS SL PRI “Priv: “NUM J AND NOT .PREV_BITS C .PRIV_NUM J] ; 


vo ( ENBFLG=0, PRVADR= OFF _PRIVS, PRMFLG= 0 ) ; 


i 
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tee 
: TEST_PRIV = Test if user has the priv 
on 


CRO 
TEST PRIV ( PRIV ) = 
BEGIN 


CUR PRIVS BBLOCK C8): 
SSETPRV7( PRVPRV= CUR ePRIVS ? 
ecu. PRIVS C ZNAME ( "PRVS$V_' SPRIV )j 


kK 1 
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——__ SS Orr reoOcOS rrr A 
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lee ; 
: ACCESS_ALLOWED = probe memory Location 
i parameters are: 

SE base address 


1 
y 
‘ BA 

: "tin length of “g ion 

: either Ro ter woes or Write 
i 

‘ 


CRO 
ACCESS_ALLOWED ( BASE, LENGTH, RW ) = 

a (NOT ZIDENTICAL(RW,R)) AND (NOT ZIDENTICAL(RW,W)) 
ZERROR (‘RW (thrird) parameter must be either & or wW') 
ZEXITMACRO 

FI 

BEGIN 

LOCAL 
PSL : BBLOCK (4), 
MODE ; 


BUILTIN 
PR 


MOVPSL ; 
MOVPSL (PSL) ; 
MODE = .PSL C PSLSV_PRVMOD J ; 
ZNAME ("PROBE',RW) ( MODE, ZREF (LENGTH), BASE ) 


END %; 
oF 
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tee 
: ARG_CHECK = Validate number of arguments 


i Macro to validate that correct rumber of arguments were specified 
} on a routine call , 


leo 
' 
MACRO  _ARG_CHECK ( NUM ) = 
BEGIN 
BUILTIN ACTUALCOUNT ; 
If ACTUALCOUNT() LSS 
THEN ERR_EXIT ( SS$_INSFARG ) ; 
If ACTUALCOUNT() GTR NUM 
THEN ERR_EXIT ( CJFS_OVRMAXARG ) ; 


END ; %; 
e ®e 


N 1 
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++ 

KERNEL_CALL = Call kernel mode routine 

Macro to call the change mode to kernel system service. 

Macro call format is ‘KERNEL_CALL (ROUTINE, ARG1, ARG2, ... )"’. 


tere Note: The following macro violates the Bliss language definition 
eeeee in that it maks use of the value of SP while building the arg List. 
eeeee It is the opinion of the Bliss maintainers that this usage is safe 
eeeee from planned future optimizations. 


KERNEL_CALL (R) = 
BEGIN 
EXTERNAL ROUT INE 
SYSSCMKRNL ; 
EXTERNAL ROUTINE 
CMODSSETEXV ; 


BUILTIN SP; 


SYSSCMKRNE ( CMODSSETEXV, .SP, %LENGTH+1, R, .SP, %LENGTH-1 
ZIF ZLENGTH GTR 1 ZTHEN ,ZREMAINING kr i5 
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'e¢ 
; SET_IPL = Set processor priority 
r 
MACRO 
SET_IPL SLs VEL) = 


BUILTIN MTPR; 
Alyy (ZREF (LEVEL), PRS_IPL) 
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‘oe 
: SOFT_INT = force software interrupt 


= 
F (LEVEL) ,PRS_SIRR)%; 
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bae 
; ERR_EXIT = Error exit macro. 
- 
! This definition could be used for Journal ACP, since no user CHMU handler 
could be there yet 
CRO 
ERR_EXIT (CODE) = 
BEGIN 
em — 


ZIF NOT ZNULL (CODE) 
THEN 
RO = CODE ; 


i 

.] 

] 

] 

' 

] 

1 

] 

' 

' 

; ZELSE 
] 

i 

; CHMU ( REF (0) ); 
4 

‘ 

] 

1 

] 

' 


ZIF NOT ZNULL (ZREMAINING) 
oo ZWARNING ("Additional arguments not allowed on this call") 


END 
i, ° 
: This defintion is used for both services and Journal ACP. 
MACRO ERR_EXIT(CODE) 
SIGRAL(ZIF NOT ZNULL (CODE) 
ZTHEN CODE ZELSE 


0 XFI 
ZIF NOT ZNULL (ZREMAINING) 
THEN SREMAINING RFI) 


ERR_MESSAGE [) = 
SIGNAL (ZREMAINING) 


—— 
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lee 
; BUG_CHECK = Macro used to signal fatal errors (internal consistency checks). 


' 
MACRO 
BUG_CHECK (CODE, TYPE, MESSAGE) = 
BEGIN 
BUILTIN BUGW; 
EXTERNAL LITERAL %NAME('BUGS_',CODE); 
BUG (ZNAME ("BUGS_', CODE) OR745 
ae 
CJFSUNLOCK_PROTO 


This macro ends the synchronization on the proto UCB by 
dequeing the specified lock. 


; 
' 
. 
' 
. 
i 
. 
4 
. 
' 
: 
'eereerereenerereeeeer YARN ] N G eeeeeeeeereereeneererererererer 


i This macro is duplicated in CUCP.SRCJJCPREQ.R32 . If any changes 
! are made to the macro make sure that they are also reflected in 
; the JCP*s require file. 


leeeueeereeeeeeeeeeere YW ARN 1 NG teeeeeeneeeeneneeeeerererereres 


KEYWORDMACRO CJFSUNLOCK_PROTO ( LOCK_ID ) = 
$SDEQ B32 


( LKID = .LOCK_ID ) 


| F 
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14 
; Define file block fields 
FIELD, 
i weenereeee CAUTION teeenereree 


i JOCHAN must be the first field 


i weeeeeerenr CAUTION teeenenerne 


five BLCK FIELDS = 


0.0.16,03, 
9: “63. 

1 04, 

16+F fa$¢_CENGTH,0,0,0) 


LITERAL Ficeux LENTLEN = FIBSC_LENGTH + FATSC_LENGTH + 16 ; 
FILEBLOCK CI, 0, P. S. 6; NJ = 
CN * FILBLK_ENTLEN) 
(FILEBLOCK * (1 * FILBLK_ENTLEN) + 0)<P,S,E>; 


oO 

Zz 

a 

> 

=~ 
nnnnn 


tee 
: Defines UIC group and member fields. 


FIELD 


UIC_EIELDS 2 
MEMBER = [0,0,16,0) 
GROUP = £8 -0,16,035 


ee 
: This defines a DESCRIPTOR data structure 


FIELD 
wan FIELDS = ! Define the fields for a DESCRIPTOR 
0. 0, 16, 0), 
ER 
o fee e e 
oa e 3 e 


CRO 
CDESCRIPTOR = BLOCK(2) FIELD(DESCR_FIELDS)2; 


™ 


FIELD 
CODESCR_FIELDS = 
SET 


oh Sead = {0 16, 48.005, 
USER_ADDR = 


be! 
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TES; 


CRO 
CDDESCRIPTOR = BLOCK(2) FIELD(CDDESCR_FIELDS)2; 
' 
Macro to generate a string with a descriptor. 
MACRO 
DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))2; 


_ 
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lee 
; Structure for all MDL defined blocks. 


2 
lee ? 
. 
] 


STRUCTURE - 
-BBLOCK C0. P, S, E; NJ = 
N) 


(BBLOCK+0)<P,S,E>, 
BBLOCKVECTOR [1 0. P. S, E; N, BS) = 
((BBLOCKVECTOR* 1*BS)+0)<P,S,E>; 


27 
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lee 


4 | Padet literals 


LITERAL 
iNtSC -MAX_COPIES = 1 ! max # of at co 
JNLSC"MAX"FILLEN = 55 ° ! maximum f ad string Length 
JNLSC_MAX~BUFSIZ = ! maximum # of byte blocks per buffer 
“MAX"MAXSIZ = 32967, | maximum record size 
INL SC DEFESIZ = 512, ! default 1/0 butter “size (in bytes) 
JNLSC_MAX_JNLS = 30, ! maximum number of journals on "one tape 
NAMTBC_BUFF_BLKS = MAX ( 2, 
(CCNTESC_MAX REC + NTESC_BLKSIZ - ) / NTESC_BLKSIZ) + 1)), 
NAMTBL_BUFF_LEN = NAMTBL_BUFF_BLKS * NTESC_BLKSIZ ; 


: 004 AH-BT13A-SE : ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY 


AH-BT13A-SE IG: PMENT CORPORATION 
VAX/VMS V4.0 AND PROPRIETARY 


004 


ira 
IMB 
iis 


